home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / background.ged next >
Encoding:
Text File  |  1996-01-19  |  2.2 KB  |  108 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4. arg TYPE
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.     exit
  13.  
  14. OPTIONS FAILAT 6                            /* ignore warnings         */
  15.  
  16. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  17.  
  18. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  19.  
  20. 'FIND FIRST QUIET STRING="<BODY"'
  21.  
  22. if (RC = 0) then do
  23.  
  24.     'GOTO STEP 5'
  25.  
  26.     'QUERY LINE VAR=BODYLINE'
  27.  
  28.     DEFAULT = ""
  29.  
  30.     'FIND NEXT QUIET STRING="BACKGROUND=*""'
  31.  
  32.     if (RC = 0) then do
  33.  
  34.         'QUERY LINE'
  35.  
  36.         if (RESULT = BODYLINE) then do
  37.  
  38.             REPLACE = 'TRUE'
  39.  
  40.             'FIND NEXT STRING="*""'
  41.  
  42.             'RIGHT'
  43.  
  44.             'EXTRACT VAR=DEFAULT LEFT="*"" RIGHT="*""'
  45.         end
  46.         else
  47.             REPLACE = 'FALSE'
  48.     end
  49.     else
  50.         REPLACE = 'FALSE'
  51.  
  52.     'REQUEST STRING TITLE="Background image" BODY="Path/URL pointing to background image (GIF format)" OLD="' || DEFAULT || '" VAR=IMAGE'
  53.  
  54.     if (RC = 0) then do
  55.  
  56.         if (left(IMAGE, 1) = '"') then
  57.             IMAGE = substr(IMAGE, 2)
  58.  
  59.         if (right(IMAGE, 1) = '"') then
  60.             IMAGE = left(IMAGE, length(IMAGE) - 1)
  61.  
  62.         if (REPLACE = 'TRUE') then do
  63.  
  64.             LEN = LENGTH(DEFAULT)
  65.  
  66.             do while (len ~= 0)
  67.  
  68.                 'DEL'
  69.                 LEN = LEN - 1
  70.             end
  71.  
  72.             'TEXT T="' || IMAGE || '"'
  73.  
  74.         end
  75.         else
  76.             'TEXT T=" BACKGROUND=*"' || IMAGE || '*""'
  77.     end
  78. end
  79. else do
  80.  
  81.     'REQUEST BODY="Body tag not found - can not add image|information.||Please create a HTML frame first. Run the|Document Wizard if you need assistance." BUTTON="!WIZARD|_Cancel"'
  82.  
  83.     if (RESULT=1) then do
  84.  
  85.         'UNLOCK'
  86.  
  87.         address 'AREXX'
  88.  
  89.         'golded:tools/www/arexx/document.ged'
  90.  
  91.         exit
  92.     end
  93. end
  94.  
  95. /* ---------------------------- END OF YOUR CODE --------------------- */
  96.  
  97. 'UNLOCK' /* VERY important: unlock GUI */
  98.  
  99. exit
  100.  
  101. SYNTAX:
  102.  
  103. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  104.  
  105. 'UNLOCK'
  106.  
  107. exit
  108.